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Section 1 
INTRODUCTION 


This report documents three computer programs 
developed to provide ASTRAL users with more diagnostic 
capabilities. Basically the programs read data files 
generated by the ASTRAL propagation loss model and display 
the input. The programs were written for use on the 
Digital Equipment Corporation VAX 11/780 in FORTRAN utilizing 
standard CALCOMP plotting software. For each program this 


report will provide: 
A. Brief description of program 
B. Modifications made to ASTRAL 
C. Table of all input parameters 
D. Sample run 


E. Source language listing 
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a Section 2 

; PROGRAM PLTSMDS 

7 

me oat: DESCRIPTION OF PROGRAM 

ie 

Po The purpose of PROGRAM PLTSMDS is to provide the 

AG ASTRAL user with a plot of the modal transmission loss (dB) 
for each frequency/source depth combination and also the 

~ final transmission loss results calculated by ASTRAL. 

as It iS a complete program. The total length is 

"a 16896 bytes. It does not require any temporary storage. The 


execution time obviously will vary with the number of f/2ZS 
z combinations. For the sample computer run, the total central 


processor (CP) time was 4.9 s. 


The required input data are listed in table form 
i (Section 2.3). The data fall into two groups: transmission 
loss as generated by ASTRAL and plot information. 


Se 
o Briefly, PROGRAM PLTSMDS reads the scaling factors 
for the x-y axes. If this information is omitted, the values 
2) last specified are used or, if never specified, default 
: values are supplied. Next the title, minimum and maximum 
= range (nm), and number of nm/inch are read. The axes are 
rs drawn and labeled. Finally the parameters specifying the 
= exact frequency/source depth combination to be plotted are 
a read in. The program is now ready to process the data file. 
x 
“ First, the header record is read. It contains the 


run date, receiver depth, and source and frequency values. 
ae This information is used to further entitle the plot. The 
Program reads the data one record at a time. It singles out 
* the modal transmission loss for the correct frequency/source 
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“ depth combination and stores the data in core, The final 
transmission loss results are also read and stored. 
- The modal transmission loss is plotted for all 
r propagating modes. Tne points are connected with a solid 
ay line and labeled with mode number. The standard transmission 
u loss output is plotted with a dotted line. All the actual 
oe plotting instructions are contained in subroutine DLINE3. 
aa When the plot is complete, PROGRAM PLTSMDS cycles 
, back to the beginning of the program to allow the user to 
om plot another frequency/source depth combination for the same 
= or a different track. There is no limit to the number of 
Pe plots which may be generated. 
as 
m 
2.2 MODIFICATIONS TO ASTRAL 
PROGRAM PLTSMDS requires a binary unformatted data 
a file containing the modal transmission loss and standard 
ASTRAL transmission loss results. The data are written on 
on FILE 1. Changes have been made in DRIVER and Subroutine 
y. INTSUM. 
ba 2.2.1 Program DRIVER 
>» Several minor changes have been made to this main 


driver. It writes the header record for FILE 1. The state- 


".. ment has the form: 


WRITE(1) (TITLE(L) ,L=1,8) ,WHEN,2R,NZS,(2S(L),L=1, 
7 NZS) ,NF,(F(L) ,L=1,NF) 


ie . 
on TITLE is obviously the title array and WHEN a variable con- 
taining the run date. The receiver depth is ZR. Array ZS 
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contains NZS source depth values and array F the NF frequency 
values, Most of this information is available in DRIVER 
through labeled common /RECVER/ and /SRCFRO/. Tne title is 
defined in a data statement and WHEN is obtained through a 
call to subroutine DATE. 


An end-of-file is written on FILE 1 signaling the 
end of the modal transmission loss data for one track. The 


statement is 


END FILE 1 


After subroutine TLOUT has been called to output 
the transmission loss results, the same results are written 
out to FILE 1 and terminated with an end~of-file. The set of 


statements are: 


DO 105 LPLOT = 2, IR 
WRITE(1) RANGE( LPLOT) ,( (AMPM(LPLOT,KPLOT,MPLOT) , 
KPLOT=1,NZS) ,MPLOT=1 ,NF) 
105 CONTINUE 
END FILE 1 


Array AMPM contains the transmission loss values at range 
( RANGE). There are IR range steps. This information is 
contained in labeled commons /RANGE/ and /TLINT/. 


All of these changes have been incorporated into 
the track loop which means they will be repeated for each 
track. Two files are written for each track processed by the 
ASTRAL model. 


atte et oT any 
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Qelee Subroutine INTSUM 


Subroutine INTSUM attenuates the amplitude of each 
mode and sums the product of this attenuated amplitude and 
the source eigenfunction value. The result is divided by the 
range. Several changes have been made to store the product 


for each mode at each range step. 


The first change was to define a new array SMTL to 
store the modal transmission loss. It is dimensioned SMTL 
(3,6,25) since there is a maximum of three source depths, six 


frequencies, and twenty-five modes. 


The entire array is initialized to value 999. 
Subroutine INTSUM will only generate values for modes M1 
through M2, the first and last propagating modes. The 999 
value will signal PROGRAM PLTSMDS that all the real data have 
been processed. The coding used to initialize array SMTL is 


DO 700 J=1,NZS 

DO 700 N=1,NF 

DO 700 M=1,25 
700 SMTL(J,N,M)=999. 


where NZS is the number of the source depths, NF the number 
of frequencies and 25 is the maximum number of modes. 


The statements incorporated to calculate the modal 
transmission loss with a maximum value TLMAX and store the 


results in array SMTL are: 


SMINT=PHIRC(N,M) *PHIM(J,N,M) *R1 
IF(SMINT.LE.AMPMIN)GO TO 41 
SMTL(J,N,M)=-10.*ALOG10(SMINT) +DBCONV 
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GO TO 40 
| 41 SMTL(J,N,M)=TLMAX 
al 
ry Array PHIRC contains the attenuated mode amplitude values and 
“ PHIM the source eigenfunction values. The minimum amplitude 
ra) is defined by AMPMIN, the conversion factor to dB re l yd by 
1h. DBCONV and the maximum transmission loss by TLMAX. All of 
r these variables are in labeled common /MODEMS/ and /CONV/. 
Pa 
eo 
) 
Finally the results are written out to FILE 1. The 
vs coding is: 
va 
ee DO 701 N=1,NF 
‘wt 
a WRITE(1)RANGE( IR) ,N,( (SMTL(J,N,M) ,M=1,25), 
: J=1,NZS) 
pee 701 CONTINUE 
a The array RANGE containing the range at each range step is 
found in labeled common /RANGES/. 
oa 
i 
“ 2.3 INPUT TO PROGRAM PLTSMDS 
a FILE ACCESS NAME FOROOS (FILE 5) 
= RECORD 1 FORMAT (5F10.2) 
m TLMIND Minimum transmission loss (dB) - default is 
e 60.0. 
TLMAXD Maximum transmission loss (dB) - default is 
- 
_ 130.0. 
> 
TLINC Transmission loss increment (dB/inch) - 
~ default is 10.0. 
a 
“4 
b.. 
a 2-5 
ra 
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oo 
‘oo oe 
‘oe RECORD 1 (continued) FORMAT (5F10.2) 
c~ 
’ | FX Scale factor for x-axis - default is 1.0. 
7 
cee If FX=0.5, tick marks drawn every 0.5 inches 
a at and x-axis compressed by 508. 
‘ If FX=3.0, ticx marks drawn every 3.0 inches 
- = ana x-axis length is tripled. 
b 
SaaS FY Scale factor for y-axis ~- defauit is 1.0. 
aL. Scales y-axis same as FX scales x-axis. 
‘ 
oe RECORD 1 MAY BE OMITTED. I£ omitted the program will default 
7 to last specified value or to default values if never 
Sao specified. 
pe 
@ ry 
S 3 RECORD 2 FORMAT (3F10.2,10A4) 
2 : ‘ RMIN Minimum range (nm). 
CHC 
ea : RMAX Maximum range (nm). 
was 
ae 
Pal ~, 
ae RSC Scale factor - number of nm/inch. 
poe TITLE(10) Title of plot (40 characters). 
con RECORD 3 FORMAT (2A4,2X,315) 
e 
ts. > MODEL Set to SMODES. NO CHOICE. MUST BE 
Be SPECIFicD. 
Bh 
ay ; 
oe an ITRK Number of track to be read on FILE 1 as 
KA el processed by ASTRAL. 
@ 
a INDEX Index of frequency array in ASTRAL (not 
ne actual frequency value). 
Me NOSRC Index of source depth array in ASTRAL (not 
ats actual source depth value). 
q, 
rg 
‘ 
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~ 
“ bee 
Ce RECORD 4 FORMAT (2A4,2X,315) 
- iq MODEL Set to TL. NO CHOICE. MUST BE SPECIFIED. 
@ 
) 
- ms ITRK Number of track. 
v  ] INDEX Index of frequency array in ASTRAL. 
‘ we 
ee NOSRC Index of source depth array in ASTRAL. 
* - 
Entire sequence of cards may be repeated for as many plots as 
San desired. 
~ 
os “a, FILE ACCESS NAME FOROO] (FILE 1) 
ar a 
C (Unformatted, binary data file written by ASTRAL) 
ee 
sort RECORD 1 
” 
n! . 
{ (| TITLE( 8) Set to ASTRAL TRANSMISSION LOSS DATA FILE. 
eS RDATE Date of ASTRAL run (character*9 format). 
a | R Receiver depth (ft). 
ok 
foe NZS Number of source depths (<3). 
‘ 2S(3) Source depth values (ft). 
re. < 
een NDF Number of frequencies (<6). 
Lime 
ar 
‘ — DF(6) Frequency values. 
Me, 
ae 
ip” 
Rv 
qa. 
2-7 
‘ > 
; we 
KA i 


t 

| nana a eh A ee nl” Cow : — 

¢ ap Mee on KO aes AGEs fs oe 8 rt Pt, eret ate % aN enes >) CoE ee a ie ae : ie ye yee 
pain peesctetcc: yogis ok wena ah eaues re ee GE Che a hs SARA me oS Sd 


RECORD 2 


RANGE Range (nm). 

N Index of frequency value. 

SMTL(J,N,M) Modal transmission loss (dB) for all J 
source depths and M modes at frequency 
DF(N). 


RECORD 2 is repeated for each of the NDF frequencies at each 
range step. Each record contains the modal transmission loss 
for all source depths at the specified frequency. 


EOF End-of-file signaling end of modal trans- 
mission loss for this track. 


Record 1 

RANGE( J) Range (nm) at range step J. 

AMPM(J,K,M) Transmission loss (dB) for each frequency/ 
source depth combination at each range step 
J. 


RECORD 1 will be repeated for each range step. 


EOF End-of-file to signal end of transmission 
loss data for this track. 


NOTE: There are two files written onto the binary, data file 
for each track processed by the ASTRAL transmission loss 
model. The entire sequence of records is repeated for each 
track. 
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2.4 SAMPLE RUN 


INPUT DATA FOROOS (FILE 5) 
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INPUT DATA FOROO] (FILE 1) 


FILE 1 was generated by the ASTRAL propagation loss 


model using the following input. 
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Section 3 
PROGRAM PLTMP 


3.1 DESCRIPTION OF PROGRAM 


PROGRAM PLTMP provides the ASTRAL user with the 
Giaanostic capability of plotting the mode coupling i iices 
determined by adiabatic mapping for each significant new 


water depth change. 


It is a complete program and is 14336 bytes long. 
Execution time will vary. The total central processor (CP: 


time used for the sample run was 2.3 s. 


The required input data are listed in table form 
(Section 3.3). The data fall naturally into two categories: 
the unformatted, binary data file written by ASTRAL on FILE 4 
and the plot-specific information on FILE 5. 


Basically PROGRAM PLTMP reads the title, maximum 
and minimum ranges of interest (nm), scaling factor (nm/ 
inch), and specific track to be processed from FILE 4. Tt 
calls subroutine LAYOUT to draw and label the axes. Sub- 
routine BTMPLT is invoked. It reads and stores all required 
data from FILE 4. The mode coupling indices are plotted by 
mode. The points are joined in a solid~line and labeled with 
mode number. After all the data have been processed, control 
returns to the beginning of the program. The user can plot 


as many plots as desired. 
3.2 MODIFICATIONS TO ASTRAL 


Changes have been made in ASTRAL to create the 
binary, unformatted data file used by PROGRAM PLTMP. File 4 
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contains the mode coupling indices for each significant new 
water depth change. Additions have been made to DRIVER, 
subroutine MARCH, and subroutine COMPDW. 


Biaidiwk Program DRIVER 


BK few minor changes have been made in this routine 
to write the header record and end-of-file on FILE 4. The 


statements are: 


DIMENSION TITLE4(20) 

DATA TITLE4/4HASTR,4HAL-C ,-4HOUPL,4HING ,4HINDE, 
4HX FO,4HR EA,4HCH N,4HEW W,4HATER,4H DEP,4HTH  , 
8*4H / 

WRITE(4) TITLE4, WHEN 

END FILE 4 


where TITLE4 is obviously the title array and WHEN a variable 
containing the date of the ASTRAL run. 


3.2.2 Subroutine MARCH 


Subroutine MARCH controls the flow for the propa- 
gation of the field out in range. It calls subroutine COMPDW 
whenever a Significant, new water depth change is introduced. 
A new parameter has been added to the list of arguments for 
subroutine COMPDW. The call is 


CALL COMPDW (FIRST,DEPNEW,IXNEW,PHINF(1,IXNEW), 
RNG) 


where RNG is the beginning range for the new water depth. 
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On the first call to subroutine COMPDW, it treats 


oat | : F is i : 
: the receiver, so the beginning range is zero. This value of 


%. 
B RNG is defined by the statement 


RNG=0.0 


After the loss at the end of the near-field bathynr- 


= etry has been computed, the environmental index (KENV) is 
eo bs found for the first region. If the new water depth differs 
an = Significantly from its previous value, COMPDW is called. 
‘ = Here the beginning range (RNG) is the range at the end of the 


near-field bathymetry. The statement is 


IF(IR.EQ.2) RNG=RANGE(IR) 


aoe 

oars As subroutine MARCH continues to march out in 
oa oe range, the RNG value for each significant water depth change 
ie is set to the beginning range of the environmental index 
as ier 

{ Ba (KENV). The statement is 

Pe 

oe ; 

ee RNG=RENV( KENV) 

S) e 3.2.3 Subroutine COMPDW 

ie x 


pn re Subroutine COMPDW makes the parametric adjustments 
* ie necessitated by a significant change in water depth. As 
re. a noted earlier, RNG has been added to its list of arguments. 
be ee The form of the subroutine is 

5 

yf SUBROUTINE COMPDW( FIRST ,DEPTH,IX,XPHINF,RNG) 


eel 


Before any calculations are performed, the array MP 
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containing the mode coupling indices is initialized to 999. 
The array MP(M) will only contain real values between M1 and 
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M2, the first and last propagating modes. The 999 value wil 
Signal PROGRAM PLTMP that all the real data have been pro- 


i cessed, Initialization of MP is accomplished by the 
7 : 
t following statements: 
ae 
aa DO 30 L=1,2 
al 30 MP(L)=999 
a Eacn time subroutine COMPDW is called it writes the 
¢ 
~ RNG value and MP array out onto FILE 4. The single statement 
is 


WRITE(4;)RNG,(MP(M),M=1,25) 


¢ One file is written on FILE 4 for each track pro- 
fy cessed by ASTRAL. 
s 
ft. 343) 2 INPUT TO PROGRAM PLTMP 
Ki 
FILE ACCESS NAME FOROOS (FILE 5) 
ie RECORD 1 FORMAT (20A4) 
iY ve TITEE Title of plot (80 characters). 
$ mt RECORD 2 FORMAT (3F10.2,15) 
( 
f we RMAX Maximum range (nm). 
a RMIN Minimum range (nm). 
ee DELTAR Scaling factor - number of nm/in. 
“ 
ITRK Number of track to be read on FILE 4 as 
a processed by ASTRAL. 
oa 
a 3-4 
tu“ 
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These two records may be repeated for as many plots as 


desired. 
i 
: FILE ACCESS NAME FOROO4 (FILE 4) 
“a (Unformatted, binary data file generated by ASTRAL) 

RECORD 1 
Mg 
° TITLE Set to ASTRAL COUPLING INDEX FOR EACH NEW 
“. WATER DEPTH. 

Me 
te 

WHEN Date of ASTRAL run (character*9 format). 

RECORD 2 
~ 
fe RNG Beginning range of each significant new 
n water depth change. 

8: 

MP(M) Mode coupling indices for all 25 modes at 
.* range, RNG. (A dummy value of 999 is 
4 supplied for non-propagating modes.) 
= RECORD 2 is repeated for each significant new water depth 
, change encountered in the environment. 

EOF End-of-file signaling end of data for this 
track. 

Entire sequence of records is repeated for each track 
oe processed by ASTRAL. There is one file on FILE 4 for each 
ice track. 
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propagation loss 


as was used for PROGRAM PLTSMDS 


ted by the ASTRAL 


ILE 4 was genera 
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using the same inpu 


model 


(Section 2.4). 
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DESCRIPTION OF PROGRAM 


PROGRAM CFPLT was written to provide the ASTRAL 
user with the capability of plotting the upper/lower turning 
point depths for each mode. The program is a modification of 
PROGRAM CFIELDPLOT which plots sound velocity profiles and, 
if desired, bathymetry for the given range of interest. 


PROGRAM CFPLT is a complete program whose total 
length is 18944 bytes. Execution time will vary according to 
the specific input. The central processor time (CP) for the 


sample run was 3.0 s. 


The input of the program varies according to usage. 
If a plot of the sound velocity profiles is desired, the data 
is contained on FILE 2 as generated by PEPREP or CFIELD. 
Bathymetry, if supplied, is read from FILE 5. If a plot of 
the upper and lower turning point depths for each new 
environment is requested, the data are obtained from FILE 3 
as written by ASTRAL. Tne bathymetric data are also on FILE 
3. The plotting parameters are always specified on FILE 5. 
A detailed description of the input data is contained in 


Section 4.3. 


Briefly, PROGRAM CFPLT reads the title, maximum and 
minimum ranges of interest (nm), scaling factor (nm/inch), 
maximum depth of plot (ft), and the variable IPROF specifying 
the type of plot. Subroutine LAYOUT is called to draw and 
label the axes. At this point the program follows two 


separate paths. 


If IPROF equais zero, a plot of sound velocity 


profiles is desired. The program calls subroutine SPDSCL to 
draw the sound speed scale. The actual depth/velocity pairs 
for each range are read by subroutine SVPRD and plotted by 
Subroutine SVPPLT. These two programs are called sequen- 
tiallv until all the profiles in the given range of interest 
nave been processed. Subroutine BTMRD accesses FILE 5 for 
the bathymetric daza. If supplied, subroutine BTMPLT plots 
the data in the specified manner (point by point or as a ste 
function). Tne program always returns to the beginning to 


enable the user to generate as many plots as desired. 


If IPROF equals one, a plot of the upper/lower 
turning point depths overlaid on the bathymetry of the area 
is desired. The program calls subroutine BTMPLT. This sub- 
routine fetches and stores all the pertinent ASTRAL informa- 
tion from FILE 3. A separate curve is drawn for each mode of 
both the upper and lower turning point depths. The points 
are connected with a solid line and labeled with mode number. 
The bathymetry is plotted as a step function which is the way 
it is actually treated in the ASTRAL model. Plot finished, 
PROGRAM CFPLT returns to the beginning to accept a new set of 
input data. 


4.2 MODIFICATIONS TO ASTRAL 

PROGRAM CFPLT requires a binary, unformatted data 
file containing bathymetry and upper/lower turning point 
depths. All of this information is readily available in the 


Main program driver (DRIVER) and needs only to be written out 
onto FILE 3. 


4.2.1 Program DRIVER 


The changes made in DRIVER are as follows: 
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Dimension title array (TITLE3) and SRENV array used 


Ci wa ve 


2 


£o store the beginning range for each new environment. 


=. 


DIMENSION TITLE3(20), SRENV(20) 


Define actual title with data statement. 


“ DATA/TITLE3 /4HASTR,4HAL~U,4HPPER,4H/LOW,4HER T,4HURNI, 
4HNG P,4HOINT, 4H DEP, 4HTHS , 10*4H / 


Locate the beginning range for each new environment 


q “ and store in array SRENV. The variable JTOP is set to the 
‘ number of environments. The arrays used in this exercise are 
, 3 found in labeled common /ENVDET/. The statements are 
; a 
: ae] 
ae IRTFE =1 
a DO 51 L = 1, NENV 
( r( IF (INDEX(L).NE.J) GO TO 51 
¢ SRENV(J) = RENV(L) 
a 51 CONTINUE 
" | TOP = J-1 
a 
are Write the header record containing the title 
ve (TITLE3) and date of ASTRAL run (WHEN). 
: Ae WRITE(3) TITLE3, WHEN 
Lb o 
{-. Write all the bathymetric data onto FILE 3. The 
eo range/depth pairs for the detailed ray trace front end are 
: contained in arrays BRANGE and DEPTH found in labeled common 
§ /BOTTOM/. The remainder of the range/depth pairs are found 
2 in arrays RENV and DEP. 
Sar 
_ DO 300 J = 1, NBP 
a 
po 4-3 
1 
7) 


L) 
a ma ne “ ¥, 
4 wens Rind watt tn Ceaay “o. Seat eee eae Sst 4 ON) APO NCR) eS RY aNd 
7 tetas ce. eee ee noe, we as ots a a) 


WRITE(3) BRANGE(J), DEPTH(J) 

DO 301 J = 2, NENV 

IF (RENV(J).LE.BRANGE(NBP)} GO TO 301 
WRITE(3) RENV(J), DEP(J) 


CONTINUE 


Write end-of-file to signal end of bathymetric 


END FILE 3 


a Write out the previously determined beginning 


rances for each new environment. 


WRITE(3) JTOP, (SRENV(J), J= 1, JTOP) 


and its immediate 


Write out the receiver depth (ZR) 
slope (THBRC), range at end of near-field bathymetry (RNFBDT) 
4 and variable (IRTFE) signaling ray trace front end version of 
ASTRAL. This information is all stored in labeled 
commons /RECVER/ and /DETRAY/. 


WRITE(3) ZR, THBRC, RNFBDT, IRTFE 


Finally write out the upper/lower turning point 
& depths for all twenty-five modes at JTOP environments. 


Terminate the file for this track with an end-of-file mark. 


DO 209 M= 1, 25 
“ WRITE(3) (ZUP(M,J), J 
WRITE(3) (2DN(M,J), J = 
CONTINUE 
END FILE 3 


1, JTOP) 
1, JTOP) 
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All of these 
; track loop of DRIVER. This means that two files of data will 
| be written on FILE 3 for each track processed by ASTRAL. 


changes have been inserted inside the 


INPUT TO PROGRAM CFPLT 


FILE ACCESS NAME FORQO5 


grr 
(FIL 


FORMAT (20A4) 


20 words (80 characters). 


RECORD 2 FORMAT (4F10.2, 215) 


RMAX Maximum range (nm). 


Re RMIN Minimum range (nm). 


- DELTAR Scaling factor - numbers cf nm/inch. 


‘~ YMAX Maximum depth (ft) of plot. 


(Maximum depth plotted on meter scale; 
therefore, maximum depth should be less than 
| even hundred meters wanted.) 


“. Variable to determine type of plot. 
a =0 Plot SS profiles-data FILE 2 


Read bathymetric data - FILE 5 
at Plot bathymetry - point by point or as step 
we function 


Plot upper/lower turning point depths - data 
FILE 3 

Read bathymetry - FILE 3 

Plot bathymetry as step function 


ote te ars wee eT ea ee ee ee) 
a SS Re eat Rie ‘ ASEAN en StoeS rte ee 
is a 


Re wm POE! witats 


ITRK Number of track aS processed by ASTRAL to be 
read on FILE 3. 


RECORD 3 FORMAT (215) 
NBP Number of (range, depth’ pairs of bathymetry 


to be read in. 


if >0, input in (nm,ft) 
if <0, input in (nm, meters} 


ISTEP ype of bathymetric plot. 


2 


0 Plot point by point 
1 Plot as step function 


RECORD 3 IS OMITTED IF 


1. No bathymetry to be plotted with sound 
velocity profiles. 


2. .IPROF = 1 (Bathymetry read FILE 3). 


RECORD 4 FORMAT (8F10.2) 

R Range (nm). 

BD Depth (ft or meters) as specified on 
RECORD 3. 


Pour range/depth pairs contained on each record. RECORD 4 
repeated as many times as required to read in NBP pairs of 


bathymetric points 


al 
Ae 
“ RECORD 4 IS OMITTED IF RECORD 3 IS OMITTED. 
“., Sequence of records may be repeated for as many plots as 
desired. 
, 
v 4-6 
t ! 
eRe ea aa te eae “eee at va RSS SEP a totap a Seven Ts REN te ny te ea ae sons ent i 
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FILE ACCESS NAME FOROO3 (FILE 2) 
(Unformatted, binary data file written by ASTRAL) 


RECORD 1] 

TITLE3 Set to ASTRAL UPPER/LOWER TURNING POINT 
DEPTHS. 

WHEN Date of ASTRAL run (character*9 format). 

RECORD 2 

RANGE Range (nm). 

DEPTH Depth (ft). 

One range/depth pair written on each record. RECORD 2 


repeated till all bathymetric data is written out. 


EOF End-of-file. 

RECORD 1 

JTOP Number of elements in SRENV array. 

SRENV Array containing beginning range of each new 


environment. 


RECORD 2 
ZR Receiver depth (ft). 
THBRC Immediate slope of receiver (radians) 


negative down. 


BE a OVE, . Awa ha Mn! A 


a a er | 


a v= Pry o Serre a co TS . = C ray 


“5 
i 
: RNFBDT Range of near-field bathymetry (nm). 
| IRTFE Variable signifies version of ASTRAL which 
generated FILE 3. 
“ 
o =0 Regular version 
CFPLT plots ZR and THBRC. 
fi =1 Ray trace front end version ZR and THBRC not 
ey plotted. 
a RECORD 3 
ae (2UP(M,J),J=#1,JTOP) Array containing upper turning point 
_ depths at JTOP environments for mode M. 
ms (ZDN(M,J),J=1,JTOP) Array containing lower turning point 


depths at JTOP environments for mode M. 


. RECORDS 3 and 4 repeated sequentially 25 times - once for 


each mode. 


EOF End-of-file. 
' 4.4 SAMPLE RUN 


INPUT DATA FOROOS (FILE 5) 


100  SB¥DLE RI'Y FOR RGM CFPLT 
a 200 1250, Q, 100, 20000, 1 i 
t. 
i INPUT DATA FOROO03 (FILE 3) 
~ 
a FILE 3 was generated by the ASTRAL propagation loss 
mn model using the same input as was used for PROGRAM PLTSMDS 
oa (Section 2.4). 
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